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Ues, Code Masters of the UK (Warurckshire , but plain 
UK unll do thank you) Announce. the fiet C Dus the 
Spectrum (w b 9011), It has 30 df their ames ӘМ 
packed субъ an ovdina CD, which you load inte your Spec 
trum with an dinan, CD ployer, | J к? 
" x you до wat псе) a CD-ROM piscdrive; use the very same 
pd you pl audio CDs ом. Complete kit consists of 
Ca vic -- Connect D player to S pecvum y tape Lh shart МС 
m hom the Superfast bps rete 5 the CD, instruc- 
s for Jj programs m the Ое, 2и) the ver Disc itself 
21 UK, firms are considering b + loo Code Masters’ 
lead. Imagine, an ddventure wth thousands of levels! A ww 
sim uth millions of men in eadi army! Racin дәтез CM 
oe dao Lith! Med] 8н 
n inas! Naturally! 
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MULTIFLICATION. GRACE 5ІХ 
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This tutorial demonstrates 
the simplicity with which a ғақ 
computer can be Programmed to 
Provide а no-fri'!l means of de- 
velecrina an unlimited number of 
multiplication problems for a 
math practice session of a six- 
arader. The ргоагат LISTing is 
short and can readitu be con- 
verted to the basic tanguage of 
other computers, 

One of the biggest drawbacks 
ef most software Packages pro- 
Vided bu the schools today for 
their students is that the pro- 
grams are too elaborately writ- 
ten. Thru these programs the 
inanimate computers are expect- 
€d to teach, but theu cannot 
anticipate а child's needs, and 
afe thus veru inefficient as a 
teaching medium. Rs a conse- 
Е ЦТУ students сап spend up to 

Eighty percent of their time 
Standing bu,... Watching crude 


computer animations, 
орїпа and fancy Picture embel- 
lishments, repetitious displays 
the credit and introductory 
eens. unclear menus, confus- 
lu abbreviated instructions, 
the like. Much of this rot 
Created bu the programmers 
id Producers of the software, 
Whe appear to be more concerned 
With demonstrating their рго- 
агаттіпа ability than they are 
the education of the child. The 
relatively poor grades that 
dents currently are scoring on 
Standard tests, compared to the 
arades in the years before com- 
Puters entered the classrooms, 
іс principally due to this in- 
efficient method of teaching. 
But, computers can be of help 
in providina a student with 
.es to follow up 
otf 
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uction, bu a 
teacher, H-34 i a proaram 
uritten for this purpose. 


b 


Routine H-34 does nothing 
mere fancu than to develop two 
decima! numbers for muttiplica- 
tion сп paper by the student 
Who then enters his answer. The 
computer then checks it and in- 
dicates whether it is correct 


or not. 

There are two subroutines in 
this program suitable for use 
in ether programs. The one in 
Lines 1000 to 1940 generates 
decimal and integral numbers in 


the range of 1 to 9004. 
are developed ас "strinas" so 
that the individual! digits can 
be manipulated. They are then 
Converted to numbers for compu- 
tation and display. 


The subroutine in 500 ta 680 
reviews all IHFUT апа rejects 
anything that cannot be a valid 
answer, In other words, it 
monitors input so that nothi ing 
Other than positive for nega 
tive) numbers of 2 or more dig- 
its aet bu. 


They 


stu- 


LONG DIVISION, GRADE SIX 


Routine H-35 covers problems 
in tong division and is Similar 
im construction to H-34. The 
two routines could have been 


combined and supplied with a 
menu for choosing Which орега- 
tion to play, but I decided a- 
gainst this. Multiplication is 
usually taught several weeks bee 
fore (опа division. Theu are 
not taught concurrently. Hence 
there іс Little to be gained bu 
а combination. 

It is very easy on the TS2068 
to convert one similar program 
into another, ас editing is sim- 
ple on this computer. Starting 
with the LISTing of H-34, I al- 
tered the following Lines.... 

Б, 10. 20, 40, 80, 100, & 120 


Bu comparing them uou should 
be able to discern the particu- 
lar action taken. But Line 120 
mau need a further explanation. 
In H-34 we compared the stu- 
dent's response "tru" with the 
computer” s "ans", and allowed 
them to differ bu no тоге than 
-@3 in value. In division the 
difference is пс! a good crite- 
fion as all of the answers will 
be small. Therefore ue used а 
fatio in the H-35 routine so 
that to score correctly, the 


difference between the tuyo val- 
ues divided bu the computer's 
value agrees to within 6 signi- 
ficant Figures. This requires 
that the student carru his work 
out іс Б figures, but it also 
Limits his work to this extent. 

H-35 has an added subroutine, 
lines 1500 to 1540, which gener— 
ate the traditional division 
suymbot which = not on most com-— 
puters, including the Timex. 
This symbol, once generated, 
сап be printed cut simplu bu 
Calling for CHR$ 146, or bu the 
letter "RH" in graphics. In this 
tutorial the graphics Letter A 
was used and the symbol printed 
in its place. Qne of the manu 
nice features or the Timex is 
its ability to mix graphics and 
text at anu time and any where 
on the screen. Host other 


operating 
Cannot do this. 


You Can Use this subroutine 
in Gther programs and can add 
up to 19 additional special 
symbols. More than 20 can be 
аздед but an explanation of the 
method will have to wait for an 
Other dau. The first two sub- 
routines can also be incorporate 
ed into other programs. They 
mau need to be altered slightly 
to suit your application. 


in basic, 


Warren Fricke 
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rt— 14 
© БЕМ ss "I-16", 1-6-90. UF 
10 REM ## MULTIPLICATION, 
GRACE 51Х 

20 RANDOMIZE 

30 CLS : LET F-e 

4Q PRINT "You are expected to 
be within .дӘЗ of the correct 
ansuer to be marked correc 


sa FOR I-1 TO 10 
60 GO SUB 180800: LET Hl=uRL H$ 
70 GO SUB 1000: LET N2=VAL H$ 
80 LET ansc-zHisH2 I 

90 PRINT ""QUESTIOH Ho. “jI 
100 PRINT " ";М1;" X "Ма; = 


110 INPUT T$: GO SUB 500 
115 LET try=VAL H$: PRINT try 
120 IF RBS tane-tryu)>.@3 THEN G 


0 TQ 150 

130 PRINT " Correct. Press E 
NTER.” 

140 LET F=F+1: GO TO 160 I 

150 PRIHT ' Мгопя. Rnzuer is 

“Jans: PRINT " Press ENTER.” 

160 INPUT Z$: HEXT I 

170 PRINT "Your score was ";F; 
" out of 10. Press ENTER t 
о рау again." 

180 INPUT z$: GO TO 30 


190 
500 REM +% INPUT HOHITOR 

510 LET Н%-Т% _ 
515 IF LEN Т%<2 THEN GO TO 560 
S20 IF T$(1)="+" ОР T$(1)z"-" T 
НЕМ LET T$-T$ií2 ТО) 
S30 со та вос 

560 FOR Т=1 TO 120: HEXT T: GO 
TO 110 

ECA FOR T=1 TO LEN T$ 

610 IF (T$iT?«"QG" OR T$1T);"2") 
AHO TIT <>." THEN GO TO 110 
620 НЕХТ T 


630 LET 5=@ 

640 FOR T-1 TO LEN TS 

650 IF T$(T)z"." THEN LET 5=5+1 
660 IF 5>1 THEN GO TO 110 


680 RETURN 


1208 REM ++ HLUHBER CENERATOR 
1010 LET R$zS5TR$ (í14900*sRHDx*RNHD) 


1020 LET w=2+INT (5*RHD) 
1030 LET H$-R$í1 TO w) 
1040 RETURH 


. +" OOO" 


Yeu are expect 
„0З Gf the c 
be marked. 


5 be Within 
answer to 


ӨСЕЗТІОМ Ho, 1 


197.9 X 11 2175.9 


Correct. Press EHTER. 
QUESTION Ho. 2 
3.3 x 354 = 1168.2 
Correct. Press ENTER. 


QUESTION Ho. 3 
144 Х 114 = 16514 
Wrong. Answer is 16416 
Press ENTER. 


H- 3S 
S REM sx "I-17", 1-6-30, UF 
18 REM xx LONG DIUISIOMH, 


GRACE SIX 


22 RANDOMIZE :0 SUB 1500 
SO CLS : LET Ғ-о 
40 PRINT "You are expected to 
be correct in the first 6 signi 
ficant fig- ures to be marked со 
rrect." 
50 FOR I=1 TO 10 
60 GO SUB 1000: LET Hl=uURL H$ 
70 GO SUB 1080. LET N2=VAL N$ 
80 LET ans-zhHi-Ha3 
90 FRINT '"QUESTION No. "XI 
10а PRINT " на" ENERO x 


, 

110 IHFUT T$: GO SUB 500 

115 LET try=VAL H$: PRINT tru 

12@ IF ABS (ап= -їгЧ) /апѕ ›1Е-5 T 
HEN GO TO 150 


130 PRINT " Correct. Press E 
NTER.” 

140 LET F=F+1: GO TO 160 

150 PRINT " Urong. Answer is 

“jans: PRINT " Press ENTER." 


160 INPUT 2%: HEXT I 
170 PRINT ’“Your score uas ";F; 
" out of 10. Press ENTER t 
о play again.” 
со TO 30 


180 INPUT 2%: 

190 

SQQ REM ++ INPUT HONITOR 

510 LET H$=T$ 

515 IF LEN T$¢2 THEN GO TO 560 

520 IF Т%(1)-"%” OR T$(1)="-" T 
HEN LET Т%-Т%(2 ТО) 

530 cO TO 60a 

S60 FOR T=1 TO 120: NEXT T: GO 
TO 110 

600 FOR T-1 TO LEH T$ 

610 IF 1Т7%(Т) 570” OR T$1T)»"9") 
AHO T$(T)«»"." THEN GO TO 110 

620 НЕХТ T 


630 LET 5=@ 

640 FOR T-1 TO LEH TS 

650 IF T$!T)z"." THEN LET 5=5+1 
668 IF 5:1 THEN GO TO 110 


670 NEXT Т 

680 RETURN 

69a “ 

1000 REM ++ NUMBER GENERATOR 
1010 LET R$=STR$ (14900*sRHDExRHD) 
+”000" 

1020 LET w=2+INT (6#RHD) 

1030 LET H$=A$(1 TO w) 

1040 RETURN 

1050 

1500 REM ++ GENERATE + ЗҰНБОШ 
1510 FOR T=USR "a" ТО USR "a"+7 
1520 READ w: POKE T, HEXT T 
1530 CATA 0,24,0. 25$" RR 24,0,0 
1540 RETURN 


Yau are expected to be correct 
in the first 6 significant fig- 
ures to be marked correct. 


QUESTION No. 1 
33 + 77.8318 = 0.423991 
Correct. Press ENTER. 


QUESTION Ho. a 


116.6 + 12.9 = 9.03872 
Correct. Press ENTER. 
QUESTION No. 3 
209 + 3.79436 = 55.152 
Urcen3. Answer is 55.081753 
Press ENTER. 


Table 1. 
Offset No of Bytes 


Parameter 
NUMB 
ADDR 

PX 

PY 

PZ 

PHI 
THETA 
PSI 
DRAWS 


DRAWP 
STFLG 


-N DENS N NNNN ~ 


Description 

Number о! sets of data. 

Start address of data. 

X co-ord ( + VE LEFT) 

Y co-ord (+ VE UP) 

Z co-ord ( + VE FORWARD) 
Angle about X axis 

Angle about Y axis 

Angle about! Z axis 

Address of free memory after 
3D data 

6*NUMB + DRAWS 

Poke this with 0 the first time 
you use the 3D image. 


0 or 255 


3D ROTATO 


IN JULY OF LAST YEAR, I wrote a program for 
Your Computer called 3D Rotator. This 
program allowed the Basic programmer to 
manipulate simply defined 3D figures at 
machine-code speeds. A typical time was 0.5 
seconds for a cube. Though this was extremely 
fast relative to Basic it was not fast enough for 
practical dynamic games. With this in mind I 
have speeded up the 3D routine by as much as 
eight times and made it more versatile. The 
speeds achieved now are as fast as those seen in 
commercial games such as 3D Tank Duel, with 
the advantage that they can be calied from 
Basic. 

Data is stored as blocks of code at any 
memory location that you specify. The data 
should be followed by a blank area which = 12 
* (number of sets of data). Therefore the total 
memory required for any one image = 19 * 
(number of sets of data). The data itself is made 
up of three 2's complement numbers and one 1 
byte number. А 2's complement number is a 2 
byte number where the negative form is 
65536- number, eg, -5 -65536-5 and 
* 52-5: A 2 byte number is Poked into memory 
as described on page 173 of the Spectrum 
manual. 

The numbers stored are as follows: x co- 
ordinate, y co-ordinate, z co-ordinate and the 1 
byte number 0 to indicate a plot at x, y, z or | 
to draw a line from the last point plotted to 
x, y, z. Î include a Basic program — program А 
— which will handle conversion of data into a 
suitable form for the machine-code program. 
The Basic program will also store the essential 
parameters such as the poiater to the data, 
number of sets of data etc., for that figure. 

Producing the data for a simple 3D figure is 
relatively easy. I refer you for further informa- 
tion to my article 3D Rotator of July 1983 and 
Ian Angell's article BBC 3D Graphics іп the 
Februarv 1984 edition of Your Computer. 

The 3D program allows the parameters for 
up to 16 3D images. These parameters are 
stored in fixed areas from 65032 onwards and 
in blocks of 20 bytes. Thus the start of the para- 
meter area for figure 4 = 4*20 + 65032 — see 
table 1. 

Each 3D image stored in memory should 
have a separate set of parameters though they 


Mark Jones with a 
program which makes 
his 3D rotator published 
in the July 1983 issue 
up to eight times faster. 
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might share a common set of data. Draws need 
not point to a memory area after your 3D data 
but I find I keep track of my memory state 
better by doing so. For example, fig.0 and fig.1 
might both be pyramids and so use the same 
data. Draws for fig.0 is as normal, after the 
data, but draws for fig.1 points at another 
section of free memory and its ADDR points to 
the бр.0 data. 

If it has all seemed rather complicated so far, 
do not worry — it is really quite easy to use 
these 3D routines. Here is an example: 

To set up fig.0 as a cube first of all work out 
your data and then store it in data statements in 
Basic program A. For a cube there are 16 sets 
of data so adjust line 15 accordingly. The data 
is going to be stored at 40000 onwards so first 
of all ensure this area is free from the Basic 
system with a 

CLEAR 39999 
and then adjust line 10 accordingly. Finally, 
this is going to be figure 0 so adjust line 5. Now 
run program А. 

Once the program is complete it will give you 
a print-out of the next free memory available 
for data, 40316, and also the position of the 
parameters area, 65032. If you now wished to 
have another cube that could move indepen- 
dently of fig.0 then simply make line 10 read 

LET ADDR = 40316 
Line 5 should read 


62 


LET FIG = 1 

апа гип the program again. 

This is, of course, an example and actual 
addresses will depend on the number of sets of 
data you use. Program А as printed will set up 
fig.0 as a cube as in the above example. 

Now to actually produce a 3D image on the 
screen there are a number of steps: 

Wl Select the current figure by Poking 64976 
with the required figure number 0-15. 

ll RAND USR 64234 actually converts your 
data to a list of plots and draws stored in 
the figure's associated free area of 
memory, pointed to by Draws. 

Wi RAND USR 64692 produces the 3D image 
on the screen from the list of plots and 
draws. 

Ш RAND USR 64679 deletes the last image 
drawn by the above routine. 

Therefore using various sequences of these 
routines you can produce 3D images from 
within your Basic programs. As an added 
feature I have included a machine-code demon- 
stration program which will put the current 
figure indicated by 

PEEK 64976 

through its paces. The number of steps, and so 

speed of this demonstration, can be altered by 

Poking 63501 with a number between 1 and 

150. 

The routine is called with 

RAND USR 63500 

Finally, to alter a given figures position on 
the screen, distance from you or angle simple 
alter the 2's complement numbers PX, PY, PZ, 
Phi, Theta and Psi in the parameters for that 
figure. 

To run a demonstration of the routines from 
Basic load with program А and then Goto 
5000. This sets up three cubes, shows ofT the 
machine-code demonstration and then leaves 
the three cubes to float around in space 
spinning. 

If you remember the 3D Rotator routine in 
my last article you may be interested to 
compare it with these new routines. The 
routine to handle the 3D conversions is written 
more efficiently, uses 2 byte x, ,y,z co-ordinates 
and does not draw the figure straight away. 
This allows a number of figures to be produced 


їп memory but not drawn until needed. 

This routine also handles calculations for 
lines partially off screen ensuring that the line 
eventually produced for the draw routine does 
not go off screen. 

The routines to draw and delete figures use a 
draw routine specially written for this program 
which is extremely fast. The routine does not 
draw a line by plotting but by manipulating 
screen addresses and rotating a mask. 

To use the plot/ routine for yourself use 
the following method: 

Wi Set up an unused figure e.g., fig 15 by 
Poking both DrawS and DrawP with the 
same value, the address of an unused area ! 
of memory. Next Poke STFLG with 255. | 

Wi Store your plots and draws at this address 
in the following form: 


P,x,y where P = 0 to plot at x,y 
Р = 1 to draw from the last 


Program A. 


1 REM "Data Stor33e Program" 
2 CLS : CLERR 39999 

4 REM 

5 LET fi9-0: REM "Figure 9-15 


9 REM 
10 LET addr=49000: REM "data 
stora9e address" 
14 REM 
15 (ЕТ Ноз16: REM "Humber of 
sets of data" 
16 GO SUB 17: STOP 
17 LET storez62032*fio*20: РОК 
E store.No: LET addrisstore*i: L 
ET c=addr: GO SUB 500 
LET addri=addr 
FOR f*1 TO No 
READ х,у, 2,Р 
LET c=x: GO SUB 589 
LET сау: GO SUB 500 
LET c=z: GO SUB See 
POKE addr1,P 
LET addrisaddri*1 
NEXT f 
LET sPare=12X(No+1) 
(ЕТ free=sPare+addri 
85 LET c=addri: LET addri=stor 
: GO SUB 500: LET c=sPare/2+ 
с: GO SUB 500: FOKE addri,0 
95 PRINT "Data stored for figu 


Pome plotted to х,у 
Р = 255 to end the data 

x is a normal x co-ordinate 

Y has the range 0-191 where О is the 

bottom line of the edit area. 

e.g. To draw a frame around the screen the 

data would be: 0,0,0, 1,255,0, 1,255,191, 

1,0,191, 1,0,0, 255 

Type program A into your computer and 
then Save it. Never try to run this program 
without the 3D machine-code routines in 
memory. For the 3D routines type in program 
B and then Save it. Now try running it. If an 
error is reported correct your error, resave the 
program and try again. Once the program has 
run successfully save the code as instructed in 
line 9999. 

You now no longer need program B. You 
now have a machine-code program saved as 
code and a Basic program. Do not try and run 
the machine code without a valid set of para- 


re "fio 

190 PRINT "data at ";addr 

105 PRINT "next free memory at 
"¿free 

110 PRINT "Parameters at "istor 
ei" to ";store+13 

120 RETURN 

500 IF c<@ THEN (ЕТ c=65536+c 
505 POKE addr1*1,INT <с/256) 
510 FOKE addrl,INT (256%(Сс/256- 
INT <с/2562209 

$15 LET addri=addr1+2 

520 КЕТМЕН 

932 КЕМ cube data 

1009 DATA 2U0,-20.20,0,20,-20,-20 
, 1,-20,-20,-20, 1 ,-20,-29,20, 1,20 
,-20,20,1.20,20.20,1.20.29.-20,1 
,-20,29,-20,1,-20,20.208.1,20,20, 
20, 1.20, -20, -20: 0, 20, 20, -20,1,-2 
96, -20, -20,0, -20, 20, -20,1, -29, -z0 
,20,0,-29, 29,20, 1 
4997 КЕМ 


439868 REM Demonstration 

4939 REM 

$000 RESTORE : LET fi9=0: LET ad 
dr=49999: LET Ho-16: GO SUE 17 
5010 RESTORE : LET Ғізгі: LET ad 
dr-free: GO SUB 17: RESTORE : LE 
р ғі9=2: LET addr=free: GO SUB 1 


Program B. ú THERE ГОЙ 

18 DATA "Зейа{е{328@Й2Зе{айбйй4Ф sels emetic 
felfesacses iddeleScddrfaeSdScSedb  pa4224822n 
üddeSelzzderdezdefdz2dcrdezdafdl ^ 5) DATA 
|ffüBebed5zcb3ccbldcb2ccbidzzd4f 48 DRTH 
dz2défdcleldledbBcdeafacdarfccdb боса] 
4Үсеісігі427ссь?ғайовғейагвьзғаы 222 цер де 
d3&blfbcsclclcscSed" 99.9521 

11 DATA 16244 MESE JZ 

28 DATA "4beffdcS3eb db  n3zcblo; 
Be24TB4zenlaüPliüpdeSdse 3 Gebi2ebE 
ddxeffdlicici?z2942084ec "aa 41 DRTR 
g953804ed44leff4fbzinasesdsdsdld — sa DATA 
safsorleBbblzs6ees4idSdS3dld316888 soe space 
ө?біғе sarsd4tds4b4z 12044 FSFE 
tfdsdsclcb: 1248 

21 DATA азад 

зӣ САТА 32515192 түзү 
Sr ddezüer: 2432073 чо. 
4гайатЧсе: sü4?cdegseruscb4lz TES 
Әйесь?з2й 2с1994973091204 71 


шаласы: 


1 fhi e 


Tn m wu qaa 


meters and data in memory. To see the various 
demonstrations load up with the Basic and then 
the code and then Goto 5000. Or to store an 
image type Run. 


5011 PUKE €3551.10: CLS : FOKE 

64976,1: RANCOMIZE USR 63500: FO 
KE 649376.0: PANDOMIZE USR 63590: 
FOKE 64976,2: RAHDOMIZE USR 635 
eg 

5012 FOR f=5 TO 95 STEP 18: РОК 
E 63501.#: ЕННСОМІ2Е USF 63500: 

NEXT f 

5015 FOR Ғ-65021 TO 65026: PUKE 

Ғ.Ә: NEXT FO 

5016 FORE 63501,10 

5419 FOKE 245255; 38: РОКЕ _ 

да: 

FORE 65038,0: “FOKE E5037, 


5629 FOF: 

LET с=#: кісе 

Б 500: (ЕТ Әде 1265077: 59 SuE $ 

Өй: LET cz-f: Ler addr 1265055: 
LE ; ў е 

1.9: F 

Srt FUR h-ü na e: SUB eaa: 

HEAT h 

S640 НЕХТ f 

5041 ЕАНСОМІ2Е USF 62500: o0 10 

5915 

воса POKE &42/5.h: FRHCOHIZE USR 

64224: FAHOOMIZE USF ediro: ЕАН 

COMIZE USE 6432: FETUFH 


1 


Tg 


gef rd" 


а. 


kw 
— 


+ — СШ 
19 бг! 


ы 02 н 
пат 


F1 da if 1F JE 
Fdzlflitgegislicac 
П dt achhe f dodi 
Fudcdblf311fdfcde 


ж, 
(Program В continued оп next page) 


e3rd2g2evrddlelcardcb45S6ed5be7zr 
асар и Cas FA" 

111 CATA 12420 

„120 CATA “des Peeldicdaly se: 
T со Mod absesluB 


ҰЗ 


гссазгессзгзғзаағы Чей5Зесҥаа 
еобедевбаЄлаебғ: “1 


аланың,‏ ا ہے ا س 


del DATA 147 35 
138 DATA "zaezfdedobenrdzzeBdrde 


(program B continued from previous page) 


Б DU TEL Жы corp сасу l 


doseetdeds:: Wy р РАИ И И 
2425 MS К ааз ef i dc Чбеғ = 


Ер! 4r eue 2 ТЕЕ к ПЕ, 
dado 45ebedeaf fde сн 


| x FEY aor Yeaecr 
п ЕЕ 
131 DATA 13884 
148 CATA "ізіғгзессезиз2332444 24 
БЕР КД ЛЕ А АНА АДЕ; 
PEEP S2969a9daladarabseblb abe 
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So Uncle Clive has killed off the 
ZX Printer — one of the most 
useful and impressive little toys 
he ever gave us. But then he 
gave us Interface | and who can 
resist plugging in a real live full- 
width printer to its little RS232 
port? 

But now that we all have a 
real printer, can we make best 
use of it? The first essential is 
some software to make the 
thing work properly — some- 
thing like Tasword 2, perhaps, 
which will format our print-outs 
with neatly justified right-hand 
margins. But that's just а start. 
Do your documents involve typ- 
ing the same name or formula 
over and over aqain? Well, if 
your software allows you to 
seek and replace a word, you 
can save yourself a great deal of 
finger-tapping. For example, 1 
spend most of my hours at my 
Spectrum pretending it's a 
word-processor in order to write 
plays. Now the one thing you 
can be sure of in writing a play is 
that you are going to have a lot 
of repetitive typing: every time a 
character speaks you need his 
name in full. A page of quick-fire 
dialogue may use a character's 
name 20 or 30 times, especially 
when you consider that you not 
only begin every speech with 
the speaker's name, you also 
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have the characters constantly 
addressing each other by name: 
You've seen the kind of thing: 


MURGATROYD: Daphne! 
DAPHNE: Murgatroyd! It’s you! 
MURGATROYD: As you say 
Daphne, it is |. 

DAPHNE: At last, Murgatroyd. 


Four Murgatroyds and four 
Daphnes in just four lines of 
deathless dialogue. Most 
writers cheat, when writing 
their draft versions of the text, 
and use abbreviations for the 
names. Ever noticed how 
characters’ names always begin 
with different letters of the 
alphabet? That way we can just 
use the initial letter for identifica- 
tion in the early scripts. (We're 
way ahead of one William 
Shakespeare here; Macbeth, 
Malcolm, Macduff — all in one 
play. He must have been fonder 
of quill-scratching than | am of 
keyboard-tapping.) 

Once the rough draft has 
been cleaned up and polished, 
you just have to use the find- 
and-replace function to find all 
your character-identification in- 
itials and replace them with the 
names in full. So, the draft looks 
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like this: 
M: D! 
D: M! It’s you! 
M: As you say, D. Itis l. 
D: At last, M. 


And the filled out version looks 
like the quotation above. A sav- 
ing of 56 key-taps in four lines! 

Once the play, or whatever, 
is complete, you'll want to give 
it a finished look. Page numbers. 
Maybe even раде headers? 
(That is where the title of the 
piece appears at the top of every 
page.) An unconscionable 
amount of typing for just a little 
fancy decoration. And none of 
the software packages for the 
Spectrum that I've come across 
allows automatic page number- 
ing. That is the only really 
desirable function of those 
£5000 word processors that is 
missing on Uncle Clive's little 


PROGRAM LISTING 


wonder. (Though by the time 
you've added Interface and the 
printer and a couple of 
microdrive cartridges to store 
your prose on, it is beginning to 
cost about as much as the 
£5000 job!). 

Here is a little program that 
will give you automatic page 
numbering and automatic page 
headers at the cost of typing it 
not only once. It will only work if 
your printer/interface/software 
combination allows you to pro- 
gram in a form feed instruction: 
that moves the paper through 
the printer one full fanfold. You 
should also set them to give you 
automatic skip over the perfora- 
tions, if that is possible. 

Run off your document, 
keeping the perforations intact; 
tear off the last sheet and then 
feed in page one again, setting 
the top of the page carefully to 
where you would want the page 
header to come. Set the pro- 
gram running and the printer will 
tun your printed play or White 
Paper through again, pausing 
only once every page to add the 
titles and page numbers. 

In the program listing, which 
should work for the common 
types of dot matrix printers, you 
will have to set the baud rate to 
suit your own set-up, and put 
enough spaces into your title in 
line 20 to bring it to the desired 
position on the page. If your 
printer can be programmed with 
TAB settings, then you can use 
these instead of the row of 
spaces. The program begins by 
asking you how many pages 
your opus runs to. If you аге too 
tired after composing the thing 
to face counting them, you can 
always lie to your computer and 
pretend to have written 2000 
pages — it will give up the pro- 
gram of its own accord when it 
runs out of paper. (But it may 
never trust you to tell the truth 
again!). 

CHR$ 12 is simply the Form 
Feed control code; your 
machine may need a different 
code, though that is unlikely. 
Refer, as they say, to the manual 
and adjust the program accor- 
dingly. 'As The Bat At Noon' is 
what we call in the trade a 
variable; please don't name all 
your documents after my play. 


"No of pages?'';n 
FORMAT ''Ь'';4800: OPEN 43;'"'b" 
FORa=1 TOn 


LPRINT “ 
LPRINT CHR$ 12 
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xia Coventry's Carol Brooksbank wrote this 
2 utility to find bugs іп her programs апа 
e she thought she'd share it with us. 
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I don't know about you, but | 
don't think that | have ever writ- 
ten a machine code program 
which ran perfectly first time. 
You know the feeling. Eagerly, 
you type in your latest master- 
piece, enter RANDOMIZE USR 
something-or-other and 
CRASH! There you sit, with a 
frozen keyboard and only a 
blank screen or a pretty 
psychedelic pattern to look at. 
You have no idea whether there 
is a fault in the logic of your pro- 
gram, whether you have made a 
typing mistake or miscounted a 
displacement, and you don't 
know where to start looking for 
the trouble, because you do not 
know how far into the program 
the crash occurred. Well, help is 
at hand. 

This machine code program 
will give you a hex trace at the 
right of the screen, as your pro- 
gram runs. lt is only a partial 
trace, as it does not show the 
address of every instructions as 
it is executed — if it did, the 
display would change so fast 
that you would never be able to 
read it — but every 1/50 second 
it gives you the address that the 
program has reached. This is 
enough to let you keep an eye on 
the progress of your program, 
and to see where things start to 
go wrong. For instance, if the 
crash is caused by the program 
getting into an endless loop, you 
will see the same sequence of 
bytes repeated over and over 
again after the crash happens. If 
vou left out a return instruction, 
so that the prograrn starts runn- 
ing through the empty bytes 
above your program, that too 
will be obvious. But remember 
that the trouble is not always at 
the point where the crash hap- 
pens. A wrong displacement in- 
struction may be some way 
away from the point to which it 
directs the program. You will 
still have to think for yourself to 
decide why the program runs as 
it does. 

Why is the display in hex? 
Two reasons. The first is purely 


personal. | wrote the program 
for myself in the first place, апа! 
always work in hex, so a decimal 
display would not be very 
helpful. (One of these days ! 
shall find myself asking the 
greengrocer for ''OA pounds of 
potatoes, please''.) The second 
reason is rather more important. 
There is a direct relationship bet- 
ween the binary form of a 
number — the bit pattern held in 
the registers — and the hex 
form, which makes the conver- 
sion between the two very 
straightforward. Converting an 
address to decimal would in- 
volve multiplying the high byte 
by 256, adding the low byte, 
then isolating the 5 digits one by 
one for printing, all of which 
wouid make the routine much 
more complicated. Since the 
trace routine is in the form of an 
interrupt subroutine, it is 
desirable that it should be as 
short and simple as possible. 

The routine makes use of the 
fact that, whenever the Spec- 
trum performs a subroutine, the 
return address is pushed onto 
the stack. On an interrupt 
subroutine, the return address is 
the program counter, the point 
reached in the main program. If 
we can retrieve this address 
from the stack and display it, we 
have a trace. Obviously, there 
are a lot of instructions perform- 
ed in between the interrupts 
which are not displayed, but this 
is usually enough to let you see 
where a program takes a wrong 
turning. So, tf your machine 
code program crashes, load in 
this routine with your own pro- 
gram — | am assuming that you 
always take the precaution of 
taping your programs before 
running them, just in case . 
enter RANDOMIZE USR 65271 
(48K), 32503 (16K), run your 
program again, and all should be 
revealed. 


Details 


The program is explained by the 
notes in the listing, but there are 
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one or two details which need 
more explanation. The interrupt 
subroutine starts by saving the 
present value of HL in the two 
spare bytes in the system 
variables area at 5СВО. This is 
necessary because the existing 
values of registers must always 
be saved at the start of an inter- 
rupt subroutine, and if we push 
it onto the stack, it will cover up 
the address we are trying to 
retrieve. The address is then 
POPped from the stack in HL, 
PUSHed back again so that it is 
in its correct place when the 
return is made from the sub- 
routine, and the other register 
values can then be saved on the 
stack. The other spare byte 
among the system variables, 
5C81, is used as an interrupt 
counter. If this has reached 22d, 
the printing position is set to the 
top of the screen and the 
counter reset to O. Otherwise, 
the routine jumps forward to 
print the address. 

The print subroutine starts 
with the instruction AND OF, 
which has the effext of resetting 
bits 4-7 of the A register, leaving 
bits O-3 unchanged, isolating 
the number we wish to print. 
PRINT must Бе called, therefore, 
with the number to be printed in 
bits O-3 of A. If the number to be 
printed is the ‘‘left hand” digit of 
the two in the A register, the in- 
struction RRA is performed 4 
times, to move it to the ‘‘right- 
hand'' position, but the print 
subroutine is called directly 
when the ''right-hand'' digit it to 
be printed. When PRINT is call- 
ed, the DE register holds the first 
byte of the screen position for 
the digit, and at the end of the 
PRINT subroutine, DE is 
restored to that position. 

Since there are only 16 digits 
which we shall need to print, O-9 
and A F, a table is set up, star- 
ting at FED7 (7ED7 16K), which 
holds the start addresses of the 
bit patterns of those digits in the 
ROM character table. Doubling 
the value of the number to print 
and adding it to the address of 


our table, points to the correct 
place in the table to retrieve the 
ROM address for that character. 
The digit can then be printed. 
After the 4 digits have been 
printed, the program variable 
SCRP at FF13 (7F13! is pointed 
to the next screen row down, 
and the program exits via the 
normal interrupt subroutine. 
The listing is for the 48K 


machine. 16K folk should 
change the initial ''F'' in the ad- 
dresses to “7”, each CALL 


PRINT instruction should read 
CDB97E, and the bytes at 
7EBD, which point to HL to the 
start of the table should be 
21D77E. At START. the high 
byte of the interrupt vector ad- 
dress should be 28, giving the 
bytes 3E28. The interrupt vec- 
tor address is not required at 
7EFF, so the four bytesbetween 
7EFD and 7ЕО1 may be chang- 
ed to NOP if you wish, though if 
they are left as they are the pro- 
gram will simply ignore them. 


Saving 


To SAVE the routine on tape: 


SAVE "т/с trace” CODE 
65116, 184 (48K) 
SAVE “т/с trace" CODE 


32348, 184 (16K) 
To START the trace: 


RANDOMIZE USR 65271 
(48K) 

RANDOMIZE USR 32503 
(16K) 


To STOP the trace: 


RANDOMIZE USR 65292 
(48K) 

RANDOMIZE USR 32524 
(16K) 


Finally, remember that the trace 
will not work if the interrupts are 
disabled. You must change your 
О! and El instructions to МОР 
while using the trace, and 
restore them when you have 
corrected your problems. 
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MACHINE CODE TRACE PROGRAM LISTING 


ADD. M/CODE LABEL ASSEMBLY NOTES 

y ac Z. zu ی‎ U lil yE A V 
FESC 22В05С INT S/R LD(SCBO),HL Save present value of HL 
FESR El POP HL Fetch program counter 
FE60 ES PUSH HL Save it again 

FE61 FS PUSH AF Save 

FE52 CS PUSH ЕС all 

FE62 DS PUSH DE registers 

FE64 2А815С LD А,(5С81) Fetch program counter 
FF&7 ZC INC A update and | 

FES8 220815С LD(SC81),A store it again 

FEGE FEL6 CP 15 Has counter reached 22d? 
FED 200B JRNZ CONT Jump forward if not 

FEOF 111040 LD DE,401C Set variable to 

FE72 EDS212FF LD (SCRAP) ,DE first screen position 
FE76 AF XOR A Set counter 

FE77 22815С LD(SC81),A to 0 

FE7A ЕПӘВІЗҒҒ CONT LD DE, (SCRP) Fetch current screen position 
FE7E 7C LD A,H Fetch first twa digits 
FE7F IF RRA First digit 

РЕВО 1F RRA to bits 

ҒЕБІ iF RRA Qs 

FEE? 1Р RRA of А register 

FEBS CDBSGFE CALL FRINT Print first digit 

FEGA 12 INC DE Point to next screen position 
FE87 7C LD А.Н Fetch second digit 

FESS CDEB9FE CALL PRINT Frint second digit 
FESB.15 INC DE Next screen position 

FECL 7D LD A.L Fetch last two digits 
FEBD IF RRA Third digit 

FEQE IF RRA to bits ` 

FEBF IF RRA 0 = 2 

FESO ТЕ RRA of A register 

FE91 CDESFE CALL PRINT Frint third digit 

FE94 11 Hic DE Next screen position 

FE9S 7р Lu A.U Fetch last digit 

FESS CDB9FE CALL FRINT Print last digit 

FE99 2ALIFF LD HL, (SCRP) Fetch current screen position 
FE9C CEIC АКОН Point HL 

ҒЕЗЕ СЕ1С RR H to next 

FERO CRIC RR H screen гон 

FEA? 012000 LD BC, 0020 down 

FEAS ED44 ADD HL,RC 

FEA? CRI4 RL 

FEA? CR14 RL H 

FEAB СБ14 RL H 

FEAD 2213FF LD(SCRP) ,HL Save new screen position 
РЕВО D1 POP DE Restore 

ҒЕВІ CI FOP BC all 

FERS Fi ` РОР АЕ reqisters 

FEBS 2АВО5С LD HL, (SCBO) Restore HL 

FEB6 (552800 1ғ0028 Exit via normal interrupt s/r 
FEB9 ЕбОЕ PRINT AND OF Isolate number to print 
FEEB 87 ADD А,А Double it 

РЕЕС Е5 PUSH HL Save proqram counter 

FEBD 21D7FE LD HL,FED7 Start of table to HL 

FECO 0600 LD B,90 Displacement to 

ҒЕС2 4Ғ š ЕС 

РЕС? 09 ADD HL,RC Add to start of table 
ҒЕС4 46 LD B, (HL) Fetch КОМ 

FECS 25 INC HL character table 

РЕСЬ 4E LD C, (HL) address for digit 

FEC7 CS PUSH BC and transfer to 

FEC8 ЕІ POP HL HL 

FEC? 0608 LD В,ОВ Counter of bytes to print 
FECE 7E ВРТ LD A. (HL) Fetch byte to print 

FECC 12 0 (0Е) ,А Print it 

FECD 23 INC HL Point to next character byte 
FECE 14 INC D Point to next screen byte 
РЕСЕ 1OFA DJNZ RFT Jump back unless 8 bytes printea 
FED! 7^ LD A,D Restore DE 

FED2 рвоя SUB 68 to screen position 


FED4 57 LD D,A for digit 1 


FEDS El POP HL Fetch program counter 
FED6 C9 RET Exit subroutine 

FED7 2080 TABLE DEFB 

FED9 3D88 DEFB 

FEDE 5090 DEFR 

FEDD 3098 DEFB 

FEDF zDAO DEFB 

FEEL 5рАВ DEFB 

FEES IDBO DEFB 

FEES 3DBRB DEFB 

FEE7 3DCO DEFB 

FEE? 3DC8 DEFB 

ҒЕЕВ 5Е08 DEFB 

FEED 5Е10 DEFB 

ҒЕЕҒ 5Е18 DEFB 

FEF1 3E20 DEFB 

FEFI 5Е28 DEFE 

ҒЕҒ5 3E30 DEFE 

FEF7 211040 START LD HL,401C Store first 

FEFA 2212ҒҒ LD (SCRP) , HL Screen position 

FEFD 1802 JR PASS By-pass 

FEFF SCFE DEFB interrupt vector address 
FFOL AF PASS XOR A Set interrupt counter 
FF02 52815С LD(SC81),A to 0 . 

FFOS ЗЕҒЕ LD A,FE High byte of interrupt 
FF07 ED47 LD I,A vector address to I reqister 
FF09 EDSE IM2 Select interrupt mode 2 
FFCB C9 RET Return | 

ЕҒОС EDS STOP ІМІ Select normal interrupt mode 
РРОЕ ЗЕЗҒ LD A,3F Normal interrupt value 
FF10 ED47 LD I,A to I register 

FF12 C9 RET Return | 

ЕҒІЗ 0000 SCRP DEFE Program variable 
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